The Atari Compendium/The Atari Compendium (Toad Computers) (1994).iso/files/umich/utils/nroff~06.zoo/io.c

C/C++ Source or Header | 1992-07-16 | 4.5 KB | 292 lines

static char *rcsid_io_c="$Id: io.c,v 1.2 1992/07/16 10:38:32 rosenkra Exp $";

/*
 * $Log: io.c,v $
 * Revision 1.2  1992/07/16  10:38:32  rosenkra
 * port to gcc, add tm,ie,el
 *
 */

/*
 *    io.c - low level I/O processing portion of nroff word processor
 *
 *    adapted for atariST/TOS by Bill Rosenkranz 11/89
 *    net:    [e-mail]
 *    CIS:    71460,17
 *    GENIE:    W.ROSENKRANZ
 *
 *    original author:
 *
 *    Stephen L. Browning
 *    5723 North Parker Avenue
 *    Indianapolis, Indiana 46220
 *
 *    history:
 *
 *    - Originally written in BDS C;
 *    - Adapted for standard C by W. N. Paul
 *    - Heavily hacked up to conform to "real" nroff by Bill Rosenkranz
 */

#undef NRO_MAIN                    /* extern globals */

#include <stdio.h>
#include "nroff.h"

/*------------------------------*/
/*    getlin            */
/*------------------------------*/
int getlin (p, in_buf)
char   *p;
FILE   *in_buf;
{

/*
 *    retrieve one line of input text
 */

    REGISTER char  *q;
    REGISTER int    i;
    int        c;
    int        nreg;

    q = p;
    for (i = 0; i < MAXLINE - 1; ++i)
    {
        c = ngetc (in_buf);
        if (c == EOF)
        {
            *q = EOS;
            c  = strlen (p);
            return (c == 0 ? EOF : c);
        }
        *q++ = c;
        if (c == '\n')
            break;
    }
    *q = EOS;

    nreg = findreg (".c");
    if (nreg > 0)
        set_ireg (".c", rg[nreg].rval + 1, 0);

    return (strlen (p));
}






/*------------------------------*/
/*    ngetc            */
/*------------------------------*/
int ngetc (infp)
FILE   *infp;
{

/*
 *    get character from input file or push back buffer
 */

    REGISTER int    c;

    if (mac.ppb >= &mac.pbb[0])
        c = *mac.ppb--;
    else
    {
        if (infp)
            c = getc (infp);
        else
            c = EOF;
    }

    return (c);
}



/*------------------------------*/
/*    pbstr            */
/*------------------------------*/
void pbstr (p)
char   *p;
{

/*
 *    Push back string into input stream
 */

    REGISTER int    i;

    /*
     *   if string is null, we do nothing
     */
    if (p == NULL_CPTR)
        return;
    if (p[0] == EOS)
        return;
    for (i = strlen (p) - 1; i >= 0; --i)
    {
        putbak (p[i]);
    }
}





/*------------------------------*/
/*    putbak            */
/*------------------------------*/
void putbak (c)
char    c;
{

/*
 *    Push character back into input stream. we use the push-back buffer
 *    stored with macros.
 */

    if (mac.ppb < &(mac.pbb[0]))
    {
        mac.ppb = &(mac.pbb[0]);
        *mac.ppb = c;
    }
    else
    {
        if (mac.ppb >= &mac.pbb[MAXPBB - 1])
        {
            fprintf (err_stream,
                "***%s: push back buffer overflow\n", myname);
            err_exit (-1);
        }
        *++(mac.ppb) = c;
    }
}



/*------------------------------*/
/*    prchar            */
/*------------------------------*/
void prchar (c, fp)
char    c;
FILE   *fp;
{

/*
 *    print character with test for printer
 */

/* this really slows things down. it should be fixed. for now, ignore
   line printer...

    if (fp == stdout)
        putc (c, fp);
    else
        putc_lpr (c, fp);
*/
    putc (c, fp);
}






/*------------------------------*/
/*    put            */
/*------------------------------*/
void put (p)
REGISTER char  *p;
{

/*
 *    put out line with proper spacing and indenting
 */

    REGISTER int    j;
    char        os[MAXLINE];

    if (pg.lineno == 0 || pg.lineno > pg.bottom)
    {
        phead ();
    }
    if (dc.prflg == TRUE)
    {
        if (!dc.bsflg)
        {
            if (strkovr (p, os) == TRUE)
            {
                for (j = 0; j < pg.offset; ++j)
                    prchar (' ', out_stream);
                for (j = 0; j < dc.tival; ++j)
                    prchar (' ', out_stream);
                putlin (os, out_stream);
            }
        }
        for (j = 0; j < pg.offset; ++j)
            prchar (' ', out_stream);
        for (j = 0; j < dc.tival; ++j)
            prchar (' ', out_stream);
        putlin (p, out_stream);
    }
    dc.tival = dc.inval;
    skip (min (dc.lsval - 1, pg.bottom - pg.lineno));
    pg.lineno = pg.lineno + dc.lsval;
    set_ireg ("ln", pg.lineno, 0);
    if (pg.lineno > pg.bottom)
    {
        pfoot ();
        if (stepping)
            wait_for_char ();
    }
}




/*------------------------------*/
/*    putlin            */
/*------------------------------*/
void putlin (p, pbuf)
REGISTER char  *p;
FILE           *pbuf;
{

/*
 *    output a null terminated string to the file
 *    specified by pbuf.
 */

    while (*p != EOS)
        prchar (*p++, pbuf);
}




/*------------------------------*/
/*    putc_lpr        */
/*------------------------------*/
#ifdef GEMDOS
#include <osbind.h>
#endif

void putc_lpr (c, fp)
char    c;
FILE   *fp;
{

/*
 *    write char to printer
 */

#ifdef GEMDOS
    (void) Bconout (0, (int) c & 0x00FF);
#else
    putc (c, fp);
#endif
}